home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC-SIG: World of Games
/
PC-SIG World of Games (CDRM1080710) (1993).iso
/
ENT
/
DISK2673.ZIP
/
EGLRISE.ZIP
/
KOMPASSI.EGL
< prev
next >
Wrap
Text File
|
1990-02-26
|
5KB
|
162 lines
rem Tim Cooper's Lady Mechano Construction Kit
rem for Kompassi, 23/02/90. Any attempt to copy
rem this program will result in your hard disk being
rem wiped, but legal copies can be bought from Tim
rem Cooper for Fmk 120.- from the address:
rem 31 Epping Ave
rem EASTWOOD - 2122
rem AUSTRALIA
replace "B","T"
BOXES = TRACK
TRACK = CHUTE,WALL
REPLACE '*','a','z','δ'
replace 'º','i'
replace '@',12
man = 3
@ X"Käytä nuoli-näppäimiä ja
B BX"yritä päästä pakoon
X B## X"tarkistajista. Voit
$X XXXX X"työntää '"#"' palikkoita.
$# # XXXX"(Sinä olet 'z' ylhällä).
XXX ## $ # XXXXXXXXXXXXXXXXXXXXXXXXXXX
X X # X%%%%%%%%%%%%%%%%%Kamppº%%%
B B X XXX X%%%%%%%%%%%%%%%%%%%%%%+%%%
### $ B X%Hakaniemº+++%%%%%%%%%+%%%
$ X%%%%%%%%%%%%+++++++++++%%%
XXXXXXXX+X+X+X+XXXSörnäºnen%%%+%%%%+%%%%%%%%
Metro-%%+++++++%%%%%%%%+%%%%%%+Raut*tientori
Asema%%%%%+%%%%%%%%%%%++++++++XXXXXXXXXXXXX
%%%%%%%%%%%+++++++++++++%"Kerää dollareita!
"Paina <PAUSE> jos haluat katsella rauhassa.
REPLACE 'E',1
star = 'P',15
REPLACE '*',1
REPLACE 'º','m'
IF FINISH PUT 6,13 '_###`###_###`# "Sait sen!"'; BELL
IF START PUT UNDER '`'
IF@ '*' PUT UNDER '.'
"Olet just tullut Rautatientorille" %Kaºppi
"kun näet juopon jolla on pullo" %%%+%%%
"Mustaherukkaviiniä. Olet hulluna" %%%+%%%
"siihen! Mene ottamaan! Näetkö kuka"%%%+%%%
"se on?" E E %%%+%%%
E %%%+%%%
E E +++++%%%
E E %%%+%%%
E %%%+%%%
#+###`###+###`# E %%%+%%%
E #+###`###+###`# %%%+%%%
#+###`###+###`# * %%%@%%%
#+###`###+###`# %Hakani
CLEAR IF
star = 'z'
replace '*',0
iF START PUT UNDER '║'
REPLACE 'AJB',2
REPLACE 'z│y+'
TRACK = CHUTE,CHUTE
Boxes=track
C#@###`###║###`# + "
++ z z z z z + X
B+ z z z z z + ++XA
+ y y y +kX
+oX
+ E +mX
++ XX %%%%% XX *pXB
XX XX +aX
% +sX
+ % + +sX
+ % + +iX
+ E E + B ++XA
C+ A + B C + X
XXXX+XXXXXXXXXXXXXXXXX+XXXXXXXX
A
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
"Täytyy päästää nyt Kompassiin "
"törmäämättä Jehovan Todisteihin 'J'
"tai puukko-kaantaviin penttuihin 'C'
"tai Tarkistajiin tai juoppoihin. "
BOXES=TRACK
TRACK = WALL,WALL
CLEAR IF
CLEAR REPLACE
REPLACE 'z : w.C',2
REPLACE 'x░'
IF@ '=' BELL
"Mene ekaksi laittamaan takkisi,"
"sitten juo kuppi kahvia, lue se
"uusi Aku Ankka, soita virastoon
+++++++++++++++++++++ja istu alas
+= %%+pelamaan
+% % %%%4%%%+tietokoneen
+% 3 %%+kanssaw
+%%%%%%%% 5%+
+++++++++++-+++++++++Mutta älä
+TARU : S +ihmeessä mee
+ E +pentujen
+ I +vessaaw
+ RAILA J +
+ A +Työntekijillä
+ +on paljon
+++-++++++++:++++++++työtä--jää
@ + C C C +pois tieltäw
+ + C C C + C +
+++-+++++++++++++++++
+1 %%%+ oo +=z+
+ %%% 2+ + z+Hint--mene
+%% %% z+vessaanw
+++++++++++++++++++++
REPLACE 'º>>>'
IF FINISH PUT 37,6 '>'
REPLACE "z!w.b%c,:─x",0
"----------------PAY-DAY!----------------------"
@ / Australialaiset#######
// / :::º
//// XXXXXXXXXXXXXXXXXXXXXX
/////// / Muut##################
/ /// /// /// :::º
###### ## XXXXXXXXXXXXXXXXXXXXXX
XVERO-VIRASTO:########
// X#####################
## XÄlä kerro niille että
Xolet Australialainenc
Xmuuten he ottavat"35%
XXXXXXXXXXXXXXX Xtimantteistäsi poisw
Kerää timantitwXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Varo ettei ne putoaa päähänzXXXXXXXXXXXXXXXXXXXX
REPLACE 'AT>║<═'
char '─'=,solid
power = 100
track = chute,chute
if finish
if start put 34,4 ">"; put 46,4 ">"; put 47,8 "<"; put 29,9 ">";
put 38,10 ">"; dots + 0
man = ,8
"Nyt sinulla on varaa ostamaan kerta-lippu metroon!
###################################################
R-Kioski│ A %%%%%Kamppi%%%%%%Hertoniem
───+────┘ %%%%%%%%+%%%%%%%%%%%+%%%%%
A ++++++++++++%%%%%%%%%%A+%%%%%
A %%%%%%%%+%%%%%%%%%%%+++%%%
A %%%%%%%%+A%%%%%%%%%%%%+%%%
A %Hakanw%+%%%%%%%%Kulo++%%%
@ %%%+%A%%+%%Sörnw%%%%%%+%%%
%%%++++++%%%+%%%%%%%%%+A%%
%%%%%%%%+++++++++++++++%%%
PASSWORD ="IHANA"
Timer=5
IF TIMER WIN
Voitit!@.